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PREFACE 



This document is a change notice to the BASIC/RT-11 Language Reference 
Manual (DEC-11-LBACA-D-D) , Appendix H was omitted from the manual and 
is included in this change notice. Pages 5-27, 7-3, 8-8, 8-17, 9-3, E-3, 
F-2, F-5, 1-6, J-2, and J-3 contained technical errors which have been 
fixed in this notice. 

All changes are marked by bars in the outer margin and the date of the 
change in the lower left hand corner. Any previous change bars on a 
revised page have been deleted. 

Insert APPENDIX H after APPENDIX G. The pages: 

5-27 

7-3/7-4 

8-7/8-8 

8-17 

9-3/9-4 

E-3/E-4 

F-l/F-2 

F-5 

I-5/I-6 

J-l/J-2 

J- 3/ J- 4 

replace the equivalent pages in the BASIC/RT-11 Language Reference 
Manual. 
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The program in memory is now: 



10 


DIM A(IOO) 


20 


FOR I = TO 100 


30 


LET A(I) = SQR(I) 


40 


NEXT I 


50 


DEF FNS(I) = SQR (A(I) ) 


60 


OPEN "LP:" AS FILE #1 


100 


PRINT #1: "FIRST OVERLAY" 


110 


FOR J = 1 TO 100 


120 


PRINT #1: FNS (J) , 


130 


NEXT J 


140 


STOP 


900 


OVERLAY "OVl" 


910 


GO TO 100 



Control now passes to statement 910, which is the first statement fol- 
lowing statement 900 in the merged program. 

Execution at statement 100 causes 

"FIRST OVERLAY" 

to be printed, followed by the fourth roots of the numbers from to 
100. 

Finally, "STOP AT LINE 140" is output at the terminal. 

An overlay statement executed in the immediate mode (without a line 
number) will act like an OLD command, except that the program cur- 
rently in core is not scratched. Instead, the program lines in the 
specified file will be edited into the program, just as if they were 
typed in via the console. 

A very useful application of this feature is when the BASIC programmer 
has a "library" of GOSUB subroutines to edit into his program. The 
procedure is as follows. 

Type in the BASIC program as if there were subroutines at specific 
(high) statement numbers such as 1000, 2000, etc. Then SAVE the pro- 
gram. The next step is to resequence the required library routines 
using the BASIC program RESEQ (see Chapter 10) so that they begin at 
the correct statement numbers. Then read in the saved program again 
with the OLD command. Finally, edit in the subroutines with immediate 
mode OVERLAY statements such as 

OVERLAY "SUBl" 
OVERLAY "SUB2" 

Finally, a REPLACE command will update the saved program. 

NOTE 

Execution of the OVERLAY statement may 
cause the data pointer to change. Any 
program employing both the OVERLAY and 
DATA statements should have a RESTORE 
statement executed after the OVERLAY 
statement. This will cause the data 
pointer to be at the start of the first 
DATA statement in the merged program. 
The OVERLAY statement changes the data 
pointer only in versions of BASIC/RT-11 
before version IB. 
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7.2 OLD COMMAND 

The OLD command (OLD) erases the contents of the storage area (SCRATCH 
and CLEAR) and inputs the program via the specified device. 

The form of the command is : 

OLD "dev.filnam.ext" 

If the file descriptor (dev:f ilnam.ext) is not specified as part of the 
OLD command, BASIC prints: 

OLD FILE NAME — 

and waits for the file description and the return key. Type the name 

in quotation marks) . If a filename is not entered, BASIC assximes the 
name NONAME. 

In the examples of OLD commands that follow, the computer printout is 
underlined 

OLD 

OLD FILE NAME — TESTl 

clears user area and inputs program TESTl. BAS from Disk (DK) . 

OLD "DT1:PR0G1" 

clears user area and inputs program PROGl.BAS from DECtape unit 1. 

OLD "PR:RESEQ" 
clears user area and inputs the program RESEQ from the high speed paper 
tape reader. 

7.3- LIST/LISTNH COMMANDS 

The LIST command prints the specified lines of the user program cur- 
rently in memory on the terminal. The program name, date and the 
BASIC version number are output as a header line for the lines being 
listed. The form of the LIST command is: 

LIST statement no. -statement no. 

Several variations of the LIST command can be used: 

LIST statement no. Lists only the specified line. 

LIST- statement no. Lists from the beginning of the pro- 
gram to and including the specified 
line. 

LIST statement no.- 

LIST statement no. -END Lists from the specified line to the 

end of the program. 
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LIST statement no. -statement no. 

Lists the specified section of the 
program. 

If no statement number is specified, the entire program is listed. If 
the statement number specified does not exist, the first line of the 
program is listed. 

Typing LIST followed by the statement number causes the header line 
and the line specified to be listed. The LISTNH command also prints 
the lines currently in core but suppresses the header line. 

Type CTRL/0 (depress the CTRL key and type the O key) to suppress an 
I undesired listing. BASIC returns to the READY message when command 
' execution is complete. 

The lines listed may differ slightly from those entered because: 

1. Certain characters \*hile acceptable to BASIC are stored in a 
standard manner when they appear outside of quotation marks. 



Character 
typed 


Character 
stored 


] 

[ 

=< 

=> 

>< 


) 
( 
<= 

<> 



2. Literals are stored to 24 bits of accuracy. Those with more 
thein 24 bits are truncated to 24 bits. 

3. Although literal storage is 24 bits, output is truncated to 6 
decimal digits. 

4. Literals are output in standard BASIC format, regardless of 
how they were input, for example, 

10 LET X=3. 0+1. 0000001 

20 PRINT X-1E7 

LIST 

10 LET X=3+l 

20 PRINT X-l.OOOOOE+07 

5. Spaces in the input program are ignored, except within 
strings cUid REM statements. The LIST command prints the 
program with spaces inserted to separate keywords cUid line 
numbers from numeric information. The listed program is 
therefore easier to read. In the case of an IF... GO TO 
statement, no space is typed before the GO TO keyword. 

Examples : 

LISTNH 100 lists line 100. 
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8,4 SYSTEM ROUTINES IN BASIC 

The routines described below are all global symbols and are available 
to the user functions: 



Routine Name 
(Global) 

BOMB 



Call 

TRAP 

.ASCII 'MESSAGE' 

.EVEN 



ERRPDL 



JMP ERRPDL 



ERRSYN 



ERRARG 



EVAL 



JMP ERRSYN 



JMP ERRARG 



JSR PC, EVAL 



Description 

This routine stops execution of 
the BASIC program and types the 
message: 

7MESSAGE AT LINE xxxx 

If the $LONGER option is specified, 
the •?' character is omitted. 
BASIC then types the READY message. 

Called when the stack pointer (SP) 
goes below the value in R4. Causes 
execution to halt and types out 
?ETC AT LINE xxxxx. There are 20 
extra "buffer" words on the stack. 
If the user routine will definitely 
not use more than this many words 
on the stack, the routine need not 
check for a stack overflow. 

Syntax error. Stops execution and 
prints out ?SYN AT LINE xxxxx. 

Argument error. Stops execution 
and prints out ?ARG AT LINE xxxxx. 

Evaluate expression. Rl points to 

the start of the expression in the 

code. EVAL sets the carry bit as 
follows : 

carry = 0: The expression is 
numeric. 



The value of the expression is 
contained in the floating 
accumulator (FACl and FAC2). 

carry =1: A string expression. 

If the string is non-null, the top 
of the stack is an indirect pointer 
to the string. (See section 8.6 
for the format of string 
variables.) 



If the string is null, the top 
the stack is the value 177777. 



of 



In both cases, Rl is moved to point 
to the byte following the 
expression in the code. If it 
detects an error in the expression, 
EVAL branches to the appropriate 
error routine. 
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Routine Name 
(Global) 

GETVAR 



Call 



JSR PC, GETVAR 



Description 

Address variable or array element. 
R2 must contain the address of the 
symbol table entry for the variable 
and Rl must point to the next byte 
beyond the second byte of the sym- 
bol table offset on call. GETVAR 
looks up and saves the address of 
the variable reference, so that a 
subsequent STOVAR or STOSVAR will 
store a value in the addressed vari- 
able. GETVAR destroys the FAC when 
addressing an array element; Rl is 
left unchanged unless the variable 
is subscripted, in which case Rl is 
advanced past the right parenthesis. 
To address the symbol table entry, 
precede the GETVAR call with the 
code: 



MOVE (R1)+,R2 



BMI 

SWAB 

BISB 

ADD 



ESYN 
R2 
(Rl)+,R2 

{R5) ,R2 



FIRST BYTE OF 

OFFSET 

IF NEGATIVE, ERROR 

GET 2ND HALF OF 

OFFSET 

ADD BASE OF SYMBOL 

TABLE 



MSG 



JSR R1,MSG 
.ASCIZ 'MESSAGE' 
.EVEN 



STOVAR 



JSR PC, STOVAR 



STOSVAR 



JSR PC, STOSVAR 



Print message on console. Prints 
the ASCII characters specified after 
the JSR instruction up to the 0-byte. 
MSG prints only those characters 
specified in the calling sequence 
plus padding characters specific to 
the terminal in use. The calling 
program must insert a carriage re- 
turn where required. MSG clears 
the CTRL/O condition. 

Store numeric variable. Stores the 
FAC in the variable or array element 
last referenced by GETVAR. If it 
was a string variable, STOVAR stops 
execution o¥ the program, and pro- 
duces the ?NSMk. error message. 

Store string variable. Stores the 
top of the stack in the variable or 
array element last referenced by 
GETVAR, and pops one word from the 
stack. If it was a numeric variable, 
STOSVAR stops execution of the pro- 
gram and produces the ?NSM error 
message. 
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The mcxiule defining the background routine should now be of the form 

.csect bkgmod 
.globl bkg 
bkgj j start of background routine 



RTS PC 
.END 

The BKGMOD object module should be linked with FTBL, PERVEC, RTINT, 
the appropriate LPS and GT object modules, and the BASIC object 
modules . 
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Table 9-1 (Cont.) 
BASIC Error Messages 



Abbrevia- 
tion 



Message 



Explanation 



?NBF 



?NER 



?NPR 



?NSM 



?00D 



?OVF 



?PTB 



?RBG 



?RPL 



?SOB 



?SSO 



?STL 



?SYN 



NEXT BEFORE FOR AT LINE xxxxx 

The NEXT statement corresponding to 
a FOR statement precedes the FOR 
statement . 



NOT ENOUGH ROOM 



There is not enough room on the se- 
lected device for the specified niim- 
ber of output blocks. 

but no program has been typed in. 

NUMBERS AND STRINGS MIXED AT LINE xxxxx 

String and numeric variables may not 
appear in the same expression, nor 
may they be set = to each other; for 
example, A$=2. 



OUT OF DATA AT LINE XXXXX 



OVERFLOW AT LINE xxxxx 



PROGRAM TOO BIG 



The data list was exhausted and a 
READ requested additional data. 

The result of a computation is too 
large for the computer to handle. 

The line just entered caused the 
program to exceed the user code area. 



RETURN BEFORE GOSUB AT LINE XXXXX 

A RETURN was encountered before exe- 
cution of a GOSUB statement. 



USE REPLACE 



File already exists, 
command . 



Use REPLACE 



SUBSCRIPT OUT OF BOUNDS AT LINE xxxxx 

The subscript computed is greater 
than 32,7 67 or is outside the bounds 
defined in the DIM statement. 

STRING STORAGE OVERFLOW AT LINE xxxxx 

There is not enough core available to 
store all the strings used in the 
program. 

STRING TOO LONG AT LINE xxxxx 

The maximum length of a string in a 
BASIC statement is 255 characters. 

SYNTAX ERROR AT LINE xxxxx 

The program has encountered an unrec- 
ognizable statement. Common examples 
of syntax errors are misspelled com- 
mands and unmatched parentheses, and 

other typographical errors. 



(Continued on next page) 
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Table 9-1 (Cont.) 
BASIC Error Messages 



Abbrevia- 
tion Message Explanation 



?TLT LINE TOO LONG TO TRANSLATE 

Lines are translated as entered and the 
line just entered exceeds the area 
available for translation. 

?UFN UNDEFINED FUNCTION AT LINE XXXXX 

The function called was not defined by 
the program or was not loaded with 
BASIC. 

?ULN UNDEFINED LINE NUMBER AT LINE XXXXX 

The line number specified in an IF, GO 
TO or GOSUB statement does not exist 
anyv^ere in the program. 

?WI£) WRITE LOCKOUT Tried to write on a sequential or 

virtual file opened for input only. 



?+ER + ERROR AT LINE XXXXX 



The program tried to compute the value 
AfB, where A is less than and B is not 
an integer. This produces a complex 
number which is not represented in 
BASIC. 



When the message PIMR AT LINE xxxxx is printed because the device 
referenced is not on-line, turn the device on cind issue a GO TO xxxxx 
statement. Execution of the program resumes at the line (xxxxx) 
specified. This message may also indicate that a program file does 
not contain any legal BASIC program lines. 

When the message ?00D AT LINE xxxxx is printed because the file 
referenced by an INPUT#1 statement is not ready, prepare the file and 
issue a GO TO statement to resume execution. 

Function Errors 



The following errors can occur when a function is called improperly. 

?ARG The argument used is the wrong type. For 

example, the argument was numeric and the 
function expected a string expression. 

?SYN The wrong number of arguments was used in a 

function, or the wrong character was used to 
separate them. For example, PRINT SIN(X,Y) 
will produce a syntax error. 

In addition, the functions give the errors listed below. 

FNa(...) ?UFN The function a has not been defined (function 

cannot be defined by an immediate mode 
statement) , 

RND or RND(X) No errors 

SIN(X) No errors 
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Abbrevia- 
tion 

POOD 



?OVF 



?PTB 



?RBG 



?RPL 



?SOB 



?SSO 



?STL 



?SYN 



?TLT 



?UFN 



?ULN 



?WLO 



Message 



Explanation 



OUT OF DATA AT LINE xxxxx 

The data list was exhausted and a READ 
requested additional data. 

OVERFLOW AT LINE xxxxx The result of a computation is too 

large for the computer to handle. 



PROGRAM TOO BIG 



The line just entered caused the pro- 
gram to exceed the user code area. 



RETURN BEFORE GOSUB AT LINE xxxxx 

A RETURN was encountered before execu- 
tion of a GOSUB statement. 



USE REPLACE 



File already exists. Use REPLACE com- 
mand. 



SUBSCRIPT OUT OF BOUNDS AT LINE xxxxx 

The subscript computed is greater than 
32,767 or is outside the bounds defined 
in the DIM statement. 

STRING STORAGE OVERFLOW AT LINE xxxxx 

There is not enough core available to 
store all the strings used in the pro- 
gram. 

STRING TOO LONG AT LINE xxxxx 

The maximum length of a string in a 
BASIC statement is 255 characters. 

SYNTAX ERROR AT LINE xxxXX 

The program has encountered an unrec- 
ognizable statement. Common examples 
of syntax errors are misspelled com- 
mands and unmatched parentheses, and 
other typographical errors. 

LINE TOO LONG TO TRANSLATE 

Lines are translated as entered and the 
line just entered exceeds the area 
available for translation. 

UNDEFINED FUNCTION AT LINE xxxXX 

The function called was not defined by 
the program or was not loaded with 
BASIC. 

UNDEFINED LINE NUMBER AT LINE xxxxx 

The line number specified in an IF, GO 
TO or GOSUB statement does not exist 
anywhere in the program. 

WRITE LOCKOUT AT LINE xxxxx 

Tried to open a read-only device for 
output, or tried to write on a sequen- 
tial or virtual file opened for input 
only. 
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Abbrevia- 
tion Message Explanation 

?+ER + ERROR AT LINE XXXXX 

The program tried to compute the value 
A+B, where A is less than and B is not 
an integer. This produces a complex 
number which is not represented in 
BASIC. 

Function Errors 

The following errors can occur when a function is called improperly. 

?ARG The argument used is the wrong type. For 

example, the argument was numeric and the 
function expected a string expression. 

?SYN The wrong number of arguments was used in a 

function, or the wrong character was used to 
separate them. For example, PRINT SIN(X,Y) 
produces a syntax error. 

In addition, the functions give the errors listed below. 

The function a has not been defined (function 
cannot be defined by an immediate mode 
statement) . 

No errors 

No errors 

No errors 

X is negative 

No errors 

X is greater thein 87 

X is negative or 

No errors 

No errors 

No errors 

X is not in the range 0<x<256 

No errors 

A$ is not a string of length 1 

X is not in the range 0<x<256 



FNa ( ... ) 


?UFN 


RND or RND(X) 




SIN(X) 




COS(X) 




SQR(X) 


?ARG 


ATN(X) 




EXP(X) 


?+ER 


LOG(X) 


?ARG 


ABS(X) 




INT(X) 




SGN(X) 




TAB{X) 


?ARG 


LEN(A$) 




ASC(A$) 


?ARG 


CHR$(X) 


?ARG 
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APPENDIX F 
ASSEMBLING AND LINKING BASIC 



P.l ASSEMBLING BASIC/RTll 

The source program of BASIC/RTll consists of three source files: 
A 16K system is required to assemble BASIC. 

BASICL.MAC 
BASICH.MAC 
FPMP.MAC 

It is necessary to create the files BASICR, BASICE, and BASICX which 
consist of only one line of code each. They specify the conditionals 
necessary to assemble BASICL into the three object modules BASICR. OBJ, 
BASICS. OB J and BASICX. OBJ. 

They are created using the EDIT program, as follows: 

(D Represents the Altmode key 

•R EDIT 

*EWBASICR.MAC ($) (?) 

*IBASICR=1 
(D EX ®(D 

.R EDIT 

*EWBASICE.MAC © (?) 
*IBASICE=1 
(D EX (1)0 

.R EDIT 

*EWBASICX.MAC ©® 
*IBASICX=1 
(D EX (|)(?) 

If any other options are desired, include the conditionals for them 
in these files. For example: 



$N0STR=1 

$L0NGER=1 

$N0VF=1 

$N0P0W=1 

$STKSZ=n 



NO STRINGS 

LONG ERROR MESSAGES 

NO VIRTUAL MEMORY FILES 

NO POWER-FAIL OPTION 

PROGRAM STACK SIZE 

IN BYTES (DEFAULT IS 

200 (OCTAL) BYTES 



If BASIC is to run on an 8K system, the $NOSTR conditional must be 
specified. 

For example, to create a BASIC with no strings, no virtual memory files, 
and a stack size of 300 (octal) the BASICR, BASICE, and BASICX files 
should be created using the EDIT program, as follows 

.R EDIT 

*EWBASICR.MAC (D® 
*IBASICR=1 
$N0STR=1 
$N0VF=1 
$STKSZ=300 
(i)EX(D(D 
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.R EDIT 

*EWBASICE.MAC ($)($) 
*IBASICE=1 
$N0STR=1 
$NOVF=l 
isTKSZ=300 
(t) EX 00 

•R EDIT 

*EWBASICX.MAC ($) © 
*IBASICX=1 
$N0STR=1 
$N0VF=1 
$STKSZ=300 
EX 00 

($j represents the Altmode key. 

To assemble Basic, type the following as input to the MACRO Assembler: 

*BASICR=BASICR,BASICL 
*BASICE=BASICE , BASICL 
*BASICX=BASICX , BASICL 
*BASICH=BASICH 
*FPMP=FPMP 

This produces the five object modules 

BASICR BASIC Root section 

BASICS BASIC Edit overlay 

BASICX BASIC Execution overlay 

FPMP Floating Point Math Package 

BASICH BASIC High section, with once-only 
code and optional functions 

F.l.l Floating Point Math Package 

Assembly of the FPMP source file produces a "standard" FPMP for BASIC, 
which runs on any PDP-11, but will not make use of special arithmetic 
hardware. All of the routines needed for the full complement of BASIC 
arithmetic functions are included. A non-standard FPMP may be speci- 
fied, as outlined in the table below: 

FPMP Assembly Parameters 

Parameter Default Value Description 

MIN undefined Define to eliminate code for BASIC 

functions SIN, COS, SQR, and ATN. 
When linked, the functions are 
listed as "undefined references". 
However, when executed by a BASIC 
program, they produce a ?UFN 
(UNDEFINED FUNCTION) error. 
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To link BASIC with the user functions in a non-overlay system, type 
this command string to the Linker: 

*BASIC=BASICR, FPMP , BASICE , BASICX/B : 40^/C 

*FUN1,FUN2[ ,GETARG] ,BASICH 

GETARG is the general argument interface module listed in Appendix H. 
In an overlay system, there are two possible ways in which to link 
BASIC with the user functions. 

If the user function routines contain no data which must be preserved 
from one function call to the next, that is, if the code for the 
routines may be refreshed at the beginning of each function call, then 
the routines may be incorporated into the execution overlay by using 
this LINK command string: 

*BASIC , BASIC=BASICR ,FPMP , FUNl/T/B : 400/0 

TRANSFER ADDRESS = 

GO 

*BAS ICE/0 :1/C 

*BASICX , FUN2 [ , GETARG] /O : 1/C 

^BASICH/0:2 

In this case, the function routines (in the module FUN2) occupy space 
in the first overlay segment which is normally unused, since the Edit 
overlay segment (BASICE) is about 250 words longer in the 8K no-string 
system than the Execution overlay segment (BASICX) . These first 250 
words of storage are "free" in this case. 

In the case where FUN2 may not be read in anew whenever it is used, 
type this command string to the Linker: 

^BASIC=BASICR , FPMP , FUNl , FUN2/T/B : 400/C 

TRANSFER ADDRESS = 

GO 

*BASICE/0:1/C 

* BASICX [ , GETARG] /O : 1/C 

^BASICH/0:2 

There are three additional object modules (FPMP. FPU, FPMP.EAE, FPMP.EIS) 
which allow BASIC/RTll to be linked for special arithmetic hardware. 

Processor Replace FPMP. OBJ With 

EAE hardware FPMP.EAE 

PDP-11/40 extended FPMP.EIS 

processor or PDP-11/45 

processor 

PDP-11/45 FPU FPMP. FPU 

hardware 



May, 1975 F-5 



APPENDIX H 
GETARG, STORE, SSTORE LISTING 



I GETARG, STORE, SSTOSE ; SUBROUTINES FOR 
; LINKAGE OF ASStH8l,ER SUBROUTINES TO BASIC 
I 

.TITLE GETARG g9-AUG-75 

.GLOBl GETaRS, STORE 

.SLOBL EVALi GETVAR, ERRARG, ERRSYN 

.GLOBL .LPAWr .COMMA, .RPAR, .EOL 

.GL06L STOVAR, .SQUOT, .DQUQT 

.IFNOF SNiQSTs 

,GL08L SSTORE, STDSVAR 

,ENOC ;$NOSTR 

.CSECT GET 
I 

ISNOSTR ■ I ;OELETE '>' TO ASSEMBLE FOR 
» ;eASIC WITH NO STRINGS 

R1«%1 
R2ii%? 
R3«X3 
R4a%a 
R5»%5 
SP«X6 
PC»%7 
NVALa4 

,IFOF SNOSTR 
NVAL«3 

•ENDC fSNOSTR 
,TEXT«3T7 
FAC1«40 
FAC2»4a 
VARSAVaSg 
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SUBROUTINE 'GETARG* CAULED BY MOV #TABL,E,R0 

JSR PC, GETARG 

.BYTE Nl,Na,,..,0 

.EVEN 
WHERE TABLE IS THE ADDRESS OF A 
TABLE TO HOLD THE ARG REFERENCES, 
Nl,N2,ETC, INDICATE THE ARG TYPES: 

1 INPUT NUMERIC EXPRESSION. 2 
(THE E)<PRESSION VALUE) ARE 
STORED IN TABLE, 

2 OUTPUT NUMERIC VARIABLE, 3 WORDS 
ARE STORED IN TABLE. 

STRING VERSION ONLY: 

3 INPUT STRING EXPRESSION, NO WORDS 
ARE STORED IN TABLE, THE STRING 
POINTER IS ON THE STACK. 

« OUTPUT STRING VARIABLE. 3 WORDS 
ARE STORED IN TABLE, 

NO STHING VERSION: 

3 INPUT STRING LITERAL, 2 WORDS 

ARE STORED IN TABLE, WORD i CON- 
TAINS THE START OF THE ASCII STRING, 
WORD 2 CONTAINS THE LENGTH OF THE 
STRING IN BYTES, 

CHECKS THE SYNTAX OF THE CALLING 

STATEMENT AND FINOS THE REQUESTED 

ARGUMENT REFERENCES, STORING THEM 

CONSECUTIVELY IN TABLE, 



GETaRg: 


MOV 


C5P)+,R3 


MODR OF CALL IN R3 




M0V8 


CR3)4.,R2 


»GET IST BYTE IN R2 




BLE 


GETX 


|KiQ ARGS, EXIT 




CMPtJ 


C«n+i*,LPAR 


ICHECK STARTING '(' 




8nE 


GETER5 


|N0, SYNTAX ERROR 




BR 


GET2 


;£NTER LOOP 


GETl! 


CMPB 


(Rn+,#, COMMA 


iCHECK ',' BETWEEN ARGS 




BNE 


GETcRS 


?N0, SYNTAX ERROR 


GET2: 


CMP 


R2,#NV4L 


>CHECK VALID BYTE 




BHI 


GETfc'RA 






ASL 


R2 






MOV 


R9.R0S 


ISAVE REGS 




MOV 


R3,W3S 






MOV 


BRTAB-2CR25»PC 


fBRANCH TO ROUTINE 
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; NUMERIC EXPRESSION 



NUMEXPS JSR 

BCS 

MOV 

MOV 

MOV 

BR 
t STRING EXPRESSION 
STREXP! 

.IFNOF 

JSR 

see 

MOV 

BR 

.gNDC 
IFOF 

MQV8 

CMPB 

SEQ 

CMPB 

6ME 
STRi: CMPB 

BNE 

MOV 

MOV 

CUR 
STR2: TSTB 

BEQ 

INC 

6R 
STR3S MOV 

CMP8 

eNE 

BR 

,endc 
f numeric target variable 



PCjEVAL 

GETERA 

ReS,Rfl 

FACICR5),(R0)* 

FAC2CR5)iCR0)* 

NXTARG 



SNOSTR 

PC,£VAL 

GETERA 

Res, Re 

NXTARG 
ISNOSTR 
SNOSTR 
(Rn*r'CSP) 
CSP) ,*.SGUQT 

STRI 
CSP),#.0QyOT 

GETER8 
CRn+,«.TEXT 

GETERS 

R0S,Ria 

R1,CR03+ 

R2 

tRD* 

STR3 

R2 

8TR2 

R2f CRi2>).+ 

csp)+, tun* 

G£T£RS 
NXTARG 
fSNOSTR 



numVaR; cur 

.IFNDF 

J STRING TARGET 

STRVAR: MOV 

.ENCC 



VARll 



VAR2t 



MOVB 

8MI 

SMA6 

BISB 

ADD 

JSR 

MOV 

MOV 

ADO 

MOV 

MOV 

MOV 

MQv 

TST 

BNE 

CMP 

8E0 
BR 
CMP 
BNE 



■CSP) 
SNOSTR 
VARl 

VARIABLE 
R2,-(SP) 
fSNOSTR 
(Rl)+,R2 
GETERS 
R2 

(Rn*iR2 
CR5),R2 
PC.GETVAR 
R0S,R0 
R5,R2 

«VA«SAV,R2 
(R23,R3 
CR23+. CR0)+ 
CR2)*f (R0)* 
CR2),CR0)* 
CSP)* 
VAR2 
tR3),#-l 
GETERA 
NXTARG 
CR31,*-1 
GETERA 



lEVALUATEl 
^STRING IS BAD 
RESTORE TABUE POINTER 

;SAVE VAUUE 



lEVAUUATEi 
JNUMERIC IS BAD 
JSESTORE TABUE POINTER 



lUQOK FOR STRING UITERAU 
JCHECK QUOTE CHAR, 



ICHECK .TEXT TOKEN NEXT 

IRESTORE TABUE POINTER 

JSAVE STRING ADDRESS IN TABUE 

»NOW FIND UENGTH 

fENO OF STRING IS BYTE 00 

JCOUNT 

;SAVE UENGTH IN TABUE 
JCHECK MATCHING CUOSE QUOTE 



^REMEMBER IT'S NUMERIC 

JREMEMBER IT'S STRING 
»5ET SYMTAB REF IN R2 



JADDRESS VARIA8UE 
^RESTORE TABUE POINTER 
lAODRESS VARSAV 

fSAVE A COPY 

IMOVE 3 WORDS INTO TABUE 



^STRING OR NUM 

JNUMERIC, CHECK TYPE AGREES 
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f GO TO NEXT ARGUMENT 



NXTARG: 


MOV 


R3S,R3 




MOVB 


CR3)+,R2 




8GT 


GETl 




CMPB 


tRl3*»#.RPAR 




BNE 


GETERS 


GETX: 


CMPB 


CR1)+,#,E0L 




BNE 


GETERS 




iNC 


R3 




ASR 


R3 




ASL 


R3 




JMP 


(R3) 


R0Si 


.WORD 





R3S: 


.WORD 





GETERAS 


JMP 


errarg 


GETERS! 


JMP 


ERRSYN 


iRTASS 


.WORD 


NUMEXP 




.WORD 


NUMVAR 




.WORO 


STREXP 




.IFNDF 


SNOSTR 




,wOR0 


STRVAR 




.ENPC 


JSNOSTR 



IGET NEXT BYTE IN R2 
H.OOP TIUU BYTE IS 
ICHECK CLOSING ')' 

;AN0 end-line TOKEN 

IMAKE SURE R3 IS EVEN 
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SUBROUTINE 'STORE' 



STORE! 



MOV 
ADD 
MOV 
MOV 
MOV 
JSR 
RTS 



R5,Ra 
#VARSAV,R2 
CR0)+, (R25+ 
tR0)+» CR2) + 

CRei5rCRa) 

PC,STOVAR 
PC 



CALLED BY J8R PC, STORE 
R0 POINTS TO 3-WORD ARG REFERENCE 
SET UP BY 6ETVAR 
SAVES THE VAUUE OF THE FAC 
IN THE SPECIFIED NUMERIC VARIABLE 
JADDRES8 VARSAV 



;«OVE FROM TABLE TO USER AREA 



JSTORE IT 



.IFNDF SNOSTR 



SUBROUTINE '8ST0RE' CALLED BY JSR PC,SSTORE 

R0 POINTS TO 3-WORD ARG REFERENCE 
SET UP BY GETVAR 

STRINS POINTER IS AT THE TOP OF STK 
SAVES THE STRINS AT TOP OF STK 
IN THE SPECIFIED STRING VARIABLE 
SSTORES MOV R5,R9 

ADO #VARSAV,R2 MDORESS VARSAV 

MOV CR0)+i(R2)+ fMOVE FROM TBL TO USER AREA 

MOV CR0)*,CR2)+ 

MOV CR03,CR2) 

MOV CSP),R3 ISWITCH RETURN & STRING PTR 

MOV 2eSP},CSP3 

MOV R3,2(SP3 

JSR PC,STOSVAR 

RTS PC 

.ENDC ISNOSTR 

.END 



fSTORE STRING 
>RETURN 
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1.3.2 "ACC"(BUF) 

Access entire buffer BUF. This command resets all buffer pointers of 
the array BUF to allow full access to it by the RDB and PUTD commcuids. 
The PUTD pointer is placed at the end of the array and the RDB pointer 
is placed at the beginning. 

Example : 

Allow full access to the array H and the array A (11) . 

10 DIM A(25) ,H(20) 

20 CALL "USE"(A(1) ,A(11),A(31) ,A,H) 

30 .... 

40 .... 



100 CALL "ACC" (H) 

110 CALL "ACC" (A (11)) 
120 .... 
130 .... 



1.3.3 "RDB"(BUF,var) 

Return the next data point from the specified buffer. Returns values 
of 65535>=var>=0 for good data. Bad data (defined as overrun) is 
returned as a minus one. If no data exists yet, a minus 2 will be 
returned, 

VJhen the referenced buffer refers to analog sampling (RTS function) , 
the values returned are in the range 4095>=var>=0. 

When the referenced buffer refers to a clocked histogram sampling 
(HIST function) , the values returned are in the range 65535>=var>=0. 
These values are either the number of ticks accumulated or the number 
remaining depending on the clock mode. 

When the referenced buffer refers to a Digital I/O operation (DRS 
function) , a value between 65535>=var>=0 is returned from the next 
position in the specified buffer. 

Example : 

Assume that the array X has 100 data values previously entered by an 
RTS command. Print out the data making sure that data overrun did not 
occur and that 100 data points were indeed taken. 

• • 

100 FOR 1=1 TO 100 

110 CALL "RDB"(X,Z) 

120 IF Z >= GO TO 160 

130 IF Z =-2 GO TO 180 

140 PRINT "BAD DATA AT EVENT"; I 

150 GO TO 190 

160 PRINT Z 
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170 GO TO 190 

180 PRINT "NO DATA AT EVENT"; I 

190 NEXT I 



1.4 MODULE 1 {A/D CONVERSION AND NUMERIC READOUTS) 



1.4.1 "ADC" ( Chan ,var) 

I Initiate an A/D conversion frcan the specified channel (0<=chan<=15) , 

I wait for it to coraplete, and return the conversion as a floating point 
result in "var" (0<=var<=4095) . The A/D cannot be currently involved 
in a Real-Time Sampling (RTS) operation. 

Example : 

Sample the A/D from channels 4 and 5 and save the results in the 
arrays A4 and A5 respectively. Assume 100 samples are to be taken, 

10 DIM A4(100) ,A5(100) 
20 FOR 1=1 TO 100 
30 CALL "ADC"(4,A4{I)) 
40 CALL "ADC"(5,A5(I)) 
50 NEXT I 



1.4.2 "RTS" (BUF,sc,nsc,npts, mode) 

Perform real time buffered/clocked sampling of the A/D. The A/D can 
be enabled in a variety of options depending on the mode specified. 
The normal mode of operation (mode=0) causes the A/D to sample 
whenever Schmitt trigger 1 fires. A mode of 2 causes the A/D to 
sample whenever the clock overflows. To enable other options, merely 
add their code number to the mode. The following list describes 
options available (all options are normally disabled) : 

Code Option 

+1 Enable burst mode (used only with DMA) 

+2 Enable clock, disable Schmitt trigger 1 

+4 Enable dual sample and hold 

+8 Enable DMA 

The A/D will be started by a clock overflow or the firing of Schmitt 
trigger 1. Pointers are used to determine if good data exists in the 
buffer arrays or if data wraparound occurs. Since data is stored in 
circular buffers (excluding DMA operations) , pointers are used to 
ensure that the incoming data rate does not exceed the removal rate. 
Data retuimed as minus 2 (-2) indicates that data overrun occurred. 
The buffer pointers are reset initially before the sampling operation 
begins. 

A/D channels are sampled on every clock overflow or firing of Schmitt 
trigger 1 with the result stored in consecutive data cells. Data is 
stored in a format identical to that read frtsn the A/D. When a clock 
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APPENDIX J 
GT GRAPHICS SUPPORT 



J.l INTRODUCTION 

BASIC is provided with GT Graphics support for the GT44 and GT40 
Display Processors. The support consists of a collection of routines 
accessible by the CALL statement. These routines allow BASIC progreuns 
to have complete control of the display processor. 

Points, vectors, text, and graph data may all be combined through 
simple CALL statements. The screen may easily be scaled to any 
coordinates. Portions of the display may be controlled independently 
through use of the subpicture feature. Special graphic routines allow 
the display of an entire array of data by one call statement. The 
area of core that is allocated to the display buffer may be 
dynamically controlled. 

When operating in the RT-11 environment, any display may be saved as a 
file on a mass storage device with the exception of graph arrays. 
This file may later be restored which will cause the original display 
to appecir on the screen without the BASIC program originally needed to 
create it. 

Support is provided for a real-time clock. The graphics support 
package will link with and support the Laboratory Peripheral System 
support that is also provided with BASIC. 

The hardware required for use of the BASIC GT Graphics support is a 
GT40 or GT44 processor, a VTll display screen, 16K or more of core 
memory, and a "user's terminal. In addition to the peripheral 
input/output device needed to support the BASIC system (disk, DECtape, 
cassette, or paper tape), the calls to TIME and TIMR require a 
real-time clock. The core required for the Graphics support itself is 
approximately 2.5K in a core resident form eind 2. IK in an overlay 
form. 

The documentation for BASIC with Graphics support is provided in two 
parts the BASIC Manual (BASIC/RTll Language Reference Manual) and this 
appendix. All information concerning BASIC arithmetic, strings, 
operations, functions, statements, and commeuids may be found in the 
BASIC Meuiual. This appendix describes the use of the BASIC calls to 
the GT Graphic routines. A general description of the CALL statement 
may be found in section 8.1 of the BASIC/RTll Language Reference 
Mcuxual. 

The GT Support is supplied in the BASIC kit in the following files: 

GTB.OBJ Main GT object module 

GTC.GBJ GT object module that may be linked in an overlay 
(otherwise it is linked in core) 

PERVEC.MAC Vector definition source file 
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FTBL.MAC Function table 

BASINT.MAC Interface Module 

RTINT.MAC Interface Module for BASIC/RTll VOl 

PTSINT.MAC Interface Module for BASIC/PTS VOl 

PERPAR.MAC Parameter file 

GTNLPS.OBJ Module linked with GT when LPS support is not 
also linked 

For instructions to build a load module of BASIC with GT support see 
Section J. 3. Software for BASIC/RTll with GT support that is provided 
on DECtape, cassette and DECpack disk also contains two running ver- 
sions of BASIC: 

BASGT.SAV BASIC with GT support 
BGTLPS.SAV BASIC with GT and LPS support 

BASGT.SAV is a non-overlaying version of BASIC with GT support - 
BGTLPS.SAV is a non-overlaying version of BASIC with GT and LPS support. 
BASGT.SAV is loaded by the following RT-11 monitor command: 

.R BASGT 

To load a version of BASIC with GT and LPS support the following 
command should be given: 

.R BGTLPS 

At this point the standard BASIC initial dialogue will occur. See 
Chapter 1 of the BASIC/RTll Language Reference Manual for a descrip- 
tion of the initial dialogue. As part of the initial dialogue BASIC 
will print: 

USER FNS LOADED 

This message will be printed whenever BASIC has had GT support linked 
with it. BASIC will terminate the initial dialogue by printing: 

READY 



NOTE 

BASIC with GT support should not be run 
by the RT-11 monitor after GTON, a pro- 
gram supplied with RT-11 (version 1 only) , 
has been run. GTON causes RT-11 to print 
all information on the graphic display 
screen and any attempt by BASIC with GT 
support to use the display screen causes 
the computer to halt. If this happens, 
the monitor must be rebooted. To avoid 
this, when GTON has been run, do not run 
BASIC until the monitor has been rebooted 
by either a hardware bootstrap or the 
PIP reboot command. See Section 4.13 of 
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the RT-11 System Reference Manual for a 
description of the PIP command. BASIC/ 
RT-11 VOIB with GT support is 
compatible with the RT-11 (version 
2 or later) GT ON monitor command. 



J . 1 . 1 Documentation Conventions 

The following chart describes the documentation conventions used in 
the description of the GT calls in this Appendix. 



CONVENTION 

Square Brackets [ ] 

Lower case letter or 
lower case letter 
followed by a digit 
(a,b,xO,yl) 

Lower case letter 
followed by a dollar 
sign, (a$,x$) 

Upper case letter 
(A,B,X,Y) 

Y axis 

X axis 



MEANING 

Optional argmnents are enclosed. 

Value to be supplied by user — may be 
any valid arithmetic expression. 



String to be supplied by user may be 
string constant (enclosed in quotes) or 
variable (A$) . 

Numeric variable whose value will be 
determined by call or an array name. 

The vertical axis 

The horizontal axis 



J. 2 DISPLAY PROCESSOR CONTROL ROUTINES - CALL SUMMARY 

BASIC programs can control the GT44 display processor by the use of 
the twenty-nine routines that are supplied with GT support for BASIC . 
A complete description of the BASIC call statement may be found in 

section 8.1 of the BASIC/RTll Language Reference Manual. 

The format of the CALL statement is: 

CALL "name" (argument list) 

or 
LET A$="name" 
CALL (A$) (argument list) 

The following chart summarizes the names, argument lists, and effects 
of the graphic calls supplied with the GT graphic support. 



Call 



Argument List 



Effect 



AGET 



(A(i), Z) 



Unscales element i of the graphic 
array A and stores in Z . 
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Call 



Argument List 



Effect 



APNT 



(x,y [,l,i,f,t]) 



APUT 



DCNT 



(A (i), b) 



DFIX (n) 



DON (t) 



Positions beam at point 
represented by (x,y) after 
scaling. Optional changing of 
l,i,f, and t parameters. 1 is 
light pen sensitivity, i is 
intensity, f is flash, and t is 
line type. 

Assigns element i of the graphic 
array A the scaled value of b. 
Dynamically changes display of 
array A. 

Restores to the screen display 
stopped by call to DSTP. 

Eliminates old display buffer if 
it exists and creates a display 
buffer of n words. Closes all 
open BASIC files. 

Turns on subpicture with tag t 
that had been turned off with a 
call to OFF. 



DSAV 



[ (" [dev: ] f ilname [ .ext] " ) ] 



Compacts the display file by 
eliminating references to erased 
svibpictures and graphics arrays 
euid if a file is specified 
creates a copy of the graphic 
display on a file on DECtape or 
disk. Display may then be 
restored to the screen at any 
time by a call to RSTR. DK: is 
the default device. DPY is the 
default extension. 



DSTP 



ERAS 



KSUB 



FIGR 



[(t)] 



(A[,l,i,f,t]) 



Stops display of the entire 
display buffer. Display may be 
restored by a call to DCKTT. 

Erases subpicture with the tag. 
If t is not specified this call 
erases the tracking object 
created by a call to TRAK. 

Terminates subpicture created by 
a call to SUBP (with one 
cirgument) . 

Creates vectors from array A to 
form figure. See section J. 2. 8 
concerning the cautions required 
when using graphic array calls. 
Optional changing of l,i,f, and t 
parameters. 
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HOW TO OBTAIN SOFTWARE INFORMATION 

SOFTWARE NEWSLETTERS, MAILING LIST 

The Software Communications Group, located at corporate headquarters in 
Maynard, publishes software newsletters for the various DIGITAL products. 
Newsletters are published monthly, and keep the user informed about cus- 
tomer software problems and solutions, new software products, documenta- 
tion corrections, as well as programming notes and techniques. 

There are two similar levels of service: 

The Software Dispatch 
The Digital Software News 

The Software Dispatch is part of the Software Maintenance Service. This 
service applies to the following software products: 

fUt — 2/XD 

RSX-llD 
DOS /BATCH 
RSTS-E 
DECsystem-10 

A Digital Software News for the PDP-11 and a Digital Software News for 
the PDP-8/12 are available to any customer who has purchased PDP-11 or 
PDP-8/12 software. 

A collection of existing problems and solutions for a given software 
system is published periodically. A customer receives this publication 
with his- initial software kit with the delivery of his system. This 
collection would be either a Software Dispatch Review or Software Per- 
fojnnance Summary depending on the system ordered. 

A mailing list of users who receive software newsletters is also main- 
tained by Software Communications. Users must sign-up for the news- 
letter they desire. This can be done by either completing the form sup- 
plied with the Review or Summary or by writing to: 

Software Communications 

P.O. Box F 

Maynard, Massachusetts 01754 

SOFTWARE PROBLEMS 

Questions or problems relating to DIGITAL'S software should be reported 
as follows: 

North and South American Submitters: 



Upon completion of Software Performance Report (SPR) form remove last 
copy and send remainder to: 

Software Communications 

P.O. Box F 

Maynard, Massachusetts 01754 

The acknowledgement copy will be returned along with a blank SPR form 
upon receipt. The acknowledgement will contain a DIGITAL assigned SPR 
number. The SPR number or the preprinted number should be referenced in 
any future correspondence. Additional SPR forms may be obtained from 
the above address. 

All International Submitters : 

Upon completion of the SPR form, reserve the last copy and send the re- 
mainder to the SPR Center in the nearest DIGITAL office. SPR forms are 
also available from our SPR Centers. 

PROGRAMS AND MANUALS 

Software and manuals should be ordered by title and order number. In the 
United States, send orders to the nearest distribution center. 



Digital Equipment Corporation Digital Equipment Corporation 

Software Distribution Center Software Distribution Center 

146 Main Street 1400 Terra Bella 

Maynard, Massachusetts 01754 Mountain View, California 94043 

Outside of the United States, orders should be directed to the nearest 
Digital Field Sales Office or representative. 

USERS SOCIETY 

DECUS, Digital Equipment Computers Users Society, maintains a user ex- 
change center for user-written programs and technical application infor- 
mation. The Library contains approximately 1,900 programs for all 
DIGITAL computer lines. Executive routines, editors, debuggers, special 
functions, games, maintenance and various other classes of programs are 
available. 

DECUS Program Library Catalogs are routinely updated and contain lists 
and abstracts of all programs according to computer line: 

PDP-8, FOCAL-8, BASIC-8, PDP-12 
PDP-7/9, 9, 15 
PDP-11, RSTS-11 
PDP-6/10, 10 

Forms and information on acquiring and submitting programs to the DECUS 
Library may be obtained from the DECUS office. 

In addition to the catalogs, DECUS also publishes the following: 

DECUSCOPE -The Society's technical newsletter, published bi-monthly, 

aimed at facilitating the interchange of technical in- 
formation among users of DIGITAL computers and at dis- 
seminating news items concerning the Society. Circula- 
tion reached 19,000 in May, 1974. 

PROCEEDINGS OF -Contains technical papers presented at DECUS Symposia 

THE DIGITAL held twice a year in the United States, once a year 
EQUIPMENT USERS in Europe, Australia, and Canada. 
SOCIETY 

MINUTES OF THE -A report of the DECsystem-10 sessions held at the two 

DEGsystem-10 United States DECUS Symposia. 

SESSIONS 

COPY-N-Mail -A monthly mailed communique among DECsystem-10 users. 

LUG/SIG -Mailing of Local User Group (LUG) and Special Interest 

Group (SIG) communique, aimed at providing closer 
communication among users of a specific product or 
application. 

Further information on the DECUS Library, publications, and other DECUS 
activities is available from the DECUS offices listed below: 

DECUS DECUS EUROPE 

Digital Equipment Corporation Digital Equipment Corp. International 

146 Main Street (Europe) 

Maynard, Massachusetts 01754 P.O. Box 340 

1211 Geneva 26 

Switzerland 
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READER'S COMMENTS 



NOTE: This form is for document comments only. Problems 
with software should be reported on a Software 
Problem Report (SPR) form (see the HOW TO OBTAIN 
SOFTWARE INFORMATION page) . 



Did you find errors in this manual? If so, specify by page. 



Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 



c 



CO 

c 
o 



"5 Is there sufficient documentation on associated system programs 

^ required for use of the software described in this manual? If not, 

g what material is missing and where should it be placed? 



Please indicate the type of user /reader that you most nearly represent. 

I I Assembly language programmer 

Q Higher-level language programmer 

I I Occasional programmer (experienced) 

I I User with little programming experience 

r~l Student programmer 

I I Non-programmer interested in computer concepts and capabilities 

Name Date 

Organization 

Street 



City State Zip Code. 

or 
Country 



If you do not require a written reply, please check here. Q 
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